home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr36 / mapl0301.zip / SYSTEM.BAS < prev    next >
BASIC Source File  |  1993-04-13  |  8KB  |  134 lines
  1. ' $linesize:132
  2. ' $title: 'SYSTEM.BAS 17.4, Copyright 1986 - 92 by D. Thomas Mack'
  3. '  Copyright 1991 by D. Thomas Mack, all rights reserved.
  4. '  Name ...............: SYSTEM.BAS
  5. '  First Released .....: Jan 24, 1993
  6. '  Subsequent Releases.: Feb 2, 1993, Feb 25, 1993
  7. '  Copyright ..........: 1986 - 1993
  8. '  Purpose.............: To move internal text into an external file to free
  9. '                        up as much string space as possible and to allow
  10. '                        RBBS to develope into a multi language BBS system
  11. '
  12. '  Parameters..........: Most parameters are passed via a COMMON statement.
  13. '
  14. ' $SUBTITLE: 'GetRBBSString - Read a string from external file'
  15. ' $PAGE   (C) 1992 - Mercurio & Sarru
  16. '          mods (C) 1993 - Dan Drinnon
  17. '        additional  mods (C) by Pete Eibl 1993
  18. '
  19. ' $INCLUDE: 'RBBS-VAR.MOD'
  20. '  SUBPROGRAM NAME    -- GetRBBSString
  21. '
  22. '
  23. '  SUBPROGRAM PURPOSE --  reduce String space
  24.  
  25.  SUB GetRBBSString (LineToRead,OutText$) STATIC                  ' DD012202
  26. '                                                                    ' DD012202
  27. '    example:  CALL GetRBBSString (50,RBBSString$)                   ' DD012202
  28. '              CALL QuickTPut1 (RBBString$)                          ' DD012202
  29. '                                                                    ' DD012202
  30.        Call OpenRand (15,ZLibDrive$ +"RBBSPC.LNG",92)                 'Pe022501
  31.        FIELD 15, 92 AS Stringa$                                       'Pe022501
  32.        GET 15, LineToRead                                             'Pe022501
  33.        Z = INSTR(Stringa$,"*eol*")                                  'Pe022501
  34.        OutText$ = Left$(stringa$,(Z-1))                               'Pe022501
  35.       Stringa$ = ""
  36.           Close 15                                                    'Pe022501
  37.        CALL SmartText(OutText$,ZTrue,ZFalse,ZFalse)                   'Pe022501
  38.      END SUB                                                          'Pe022501
  39.  
  40. ' $SUBTITLE: 'ShowVar --- '
  41. ' $PAGE
  42. 'Sub ShowVar (OutText$) Static
  43. '
  44. ' Ignore this code, it is NOT used but may be used in the future
  45. '        WasY = 1
  46. '         IF WasY > LEN(OutText$) THEN Exit Sub
  47. '           WasX = INSTR(WasY, OutText$, "{{")
  48. '      IF WasX = 0 THEN Exit Sub
  49. '      WasY = INSTR(WasX, OutText$, "}}")
  50. '      IF WasY = 0 THEN Exit Sub
  51. '     OutText1$ = LEFT$(OutText$, WasX - 1) + Mid$(OutText$, WasY + 2)
  52. '     WasY = WasY - WasX
  53. '     ShowV$ = MID$(OutText$, WasX + 2, WasY - 2)
  54. 'End Sub
  55. '
  56. ' MarkTimeB (C) 1993 - Dan Drinnon
  57. '
  58. '
  59. SUB MarkTimeB (DotNumber) STATIC                                     ' DD012602
  60.       IF DotNumber = 0 THEN                                          ' DD012602
  61.          RANDOMIZE TIMER                                             ' DD020502
  62.          Style = INT(RND * 6) + 1                                    ' DD012602
  63. '        ON Style GOSUB 60230,60240,60250,60260,60270,60280      'Pe021493
  64.         GOSUB 60280        'Comment this out for Random character generation
  65.          CALL QuickTPut ("  ",0)                                     ' DD012602
  66.       END IF                                                         ' DD012602
  67.       TimeNow! = TIMER                                               ' DD012602
  68.       IF TimeNow! - PrevTI! < 0.15 THEN _                            ' DD012602
  69.          EXIT SUB                                                    ' DD012602
  70.       PrevTI! = TimeNow!                                             ' DD012602
  71.       DotNumber = DotNumber + 1                                      ' DD012602
  72.       IF DotNumber = 5 THEN DotNumber = 1                            ' DD012602
  73.       WasX$ = ZBackSpace$                                            ' DD012602
  74.       ON DotNumber GOTO 60201,60202,60203,60204                      ' DD012602
  75. 60201 WasX$ = WasX$ + ZFG1$ + char1$                                 ' DD012602
  76.       GOTO 60205                                                     ' DD012602
  77. 60202 WasX$ = WasX$ + ZFG2$ + char2$                                 ' DD012602
  78.       GOTO 60205                                                     ' DD012602
  79. 60203 WasX$ = WasX$ + ZFG3$ + char3$                                 ' DD012602
  80.       GOTO 60205                                                     ' DD012602
  81. 60204 WasX$ = WasX$ + ZFG4$ + char4$                                 ' DD012602
  82. 60205 CALL QuickTPut (WasX$ + ZEmphasizeOff$,0)                      ' DD012602
  83.       EXIT SUB                                                       ' DD012602
  84. 60230 IF ZWasGR = 0 THEN GOTO 60260                                  ' DD012602
  85.       char1$ = CHR$(221)                                             ' DD012602
  86.       char2$ = CHR$(220)                                             ' DD012602
  87.       char3$ = CHR$(222)                                             ' DD012602
  88.       char4$ = CHR$(223)                                             ' DD012602
  89.       RETURN                                                         ' DD012602
  90. 60240 IF ZWasGR = 0 THEN GOTO 60270                                  ' DD012602
  91.       char1$ = CHR$(218)                                             ' DD012602
  92.       char2$ = CHR$(191)                                             ' DD012602
  93.       char3$ = CHR$(217)                                             ' DD012602
  94.       char4$ = CHR$(192)                                             ' DD012602
  95.       RETURN                                                         ' DD012602
  96. 60250 IF ZWasGR = 0 THEN GOTO 60280                                  ' DD012602
  97.       char1$ = CHR$(92)                                              ' DD012602
  98.       char2$ = CHR$(124)                                             ' DD012602
  99.       char3$ = CHR$(47)                                              ' DD012602
  100.       char4$ = CHR$(196)                                             ' DD012602
  101.       RETURN                                                         ' DD012602
  102. 60260 char1$ = CHR$(43)                                              ' DD012602
  103.       char2$ = CHR$(42)                                              ' DD012602
  104.       char3$ = CHR$(45)                                              ' DD012602
  105.       char4$ = CHR$(42)                                              ' DD012602
  106.       RETURN                                                         ' DD012602
  107. 60270 char1$ = CHR$(16)                                              ' DD012602
  108.       char2$ = CHR$(30)                                              ' DD012602
  109.       char3$ = CHR$(17)                                              ' DD012602
  110.       char4$ = CHR$(31)                                              ' DD012602
  111.       RETURN                                                         ' DD012602
  112. 60280 char1$ = CHR$(92)                                              ' DD012602
  113.       char2$ = CHR$(124)                                             ' DD012602
  114.       char3$ = CHR$(47)                                              ' DD012602
  115.       char4$ = CHR$(45)                                              ' DD012602
  116.       RETURN                                                         ' DD012602
  117.       END SUB                                                        ' DD012602
  118. '
  119. ' Look for the RBBS.LNG file as specified in CONFIG paramter 301
  120. ' if NOT found display  message and let them wait a real long time
  121. '
  122. SUB FindLang  Static
  123.  
  124.     LangFile$ = ZLibDrive$+"\RBBSPC.LNG"
  125.         Call Findit (LangFile$)
  126.           If NOT ZOK THEN
  127.      Call QuickTput (ZCrLf$ + Chr$(7)+"  Missing Language file for RBBS , Please tell SYSOP"+Chr$(7),2)
  128.      Call QuickTput ( " Messages and Command Prompts are NOT available" ,2)
  129.      Call QuickTput ( " System Will Shut down NOW, Please Hang Up ! ....",3)
  130.        Call DelayTime (5)
  131.      LINE INPUT " Hit a Key to return to DOS...! " ; TEMP$
  132.    SYSTEM
  133.      End IF
  134. End Sub